home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 August / 1988-08.d64 / progpage #3 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  561b  |  14 lines
  1. 10 poke 784,108:poke 785,122:poke 786,0
  2. 30 def fn p(x)=usr(x)+pos("[162]d[181]6[133]=[181]7[133]> [169] >[169] [172] +[188]l[178][183] [161][183] '[184][169][133] [149][169] y[168]l")+d
  3. 40 poke 53280,0:poke 53281,0:poke 646,1:print chr$(147)
  4. 50 v=53248:poke 2040,11:poke v+21,1:poke v,24:poke v+1,53:poke v+39,7
  5. 60 print "  . . . . . . . . . . . . . .":poke 704,fn p(0)
  6. 100 data 000,000,000,000,255,000,003,255
  7. 110 data 192,015,255,240,031,231,248,063
  8. 120 data 227,252,127,255,248,255,255,224
  9. 130 data 255,255,128,255,254,000,255,248
  10. 140 data 000,255,248,000,255,254,000,127
  11. 150 data 255,128,063,255,224,031,255,248
  12. 160 data 015,255,240,003,255,192,000,255
  13. 170 data 000,000,000,000,000,000,000,-1
  14.